home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2002 #11 / Amiga Plus CD - 2002 - No. 11.iso / Tools / Development / PowerD / powerd / source / lib / powerd_lib.lha / PowerD / ReEStr.ass < prev    next >
Text File  |  2001-03-26  |  160b  |  14 lines
  1. ; a0 - estr
  2.  
  3.     xdef    _ReEStr
  4.  
  5. _ReEStr    movea.l    a0,a1
  6. .loop    tst.b    (a0)+
  7.     bne.s    .loop
  8.     move.l    a0,d0
  9.     sub.l    a1,d0
  10.     subq.l    #1,d0
  11.     move.w    d0,(-2,a1)
  12.     move.l    a1,d0
  13.     rts
  14.